function changeCLim
% changeCLim
% 
% Editing:
% gs may 2005
% --------------------------------

prompt = {'CLim minimum:','CLim maximum:'};
dlg_title = 'New CLim values';
num_lines= 1;
def     = {'',''};
answer  = inputdlg(prompt,dlg_title,num_lines,def);

newLims = [str2double(answer{1}) str2double(answer{2})];

hax(1) = findobj(get(gcf, 'Children'), 'Tag', 'avgMap_1');
hax(2) = findobj(get(gcf, 'Children'), 'Tag', 'avgMap_2');

set(hax, 'CLim', newLims);

CB = findobj(get(gcf, 'Children'), 'Tag', 'avgMapCB');
delete(CB);

axes(hax(1));
hcb(1) = colorbar;
axes(hax(2));
hcb(2) = colorbar;
set(hcb, 'Tag', 'avgMapCB');
